﻿<Serializable()> Public Class GebäudeVerweis
    Inherits ObjektGebäude
    Public Sub New(ByVal neuSpieler As Integer, ByVal neuX As Integer, ByVal neuY As Integer, ByVal Schlacht As Integer)
        MyBase.New("VERWEIS", neuSpieler, neuX, neuY, Schlacht)
        GebäudeLaden()
        BildID = -1
    End Sub
    Public Sub New(ByVal neuSpieler As Integer, ByVal neuLeben As Integer, ByVal neuBesetzungszahl As Integer, ByVal neuX As Integer, ByVal neuY As Integer, ByVal Feuerzahl As Integer, ByVal Schlacht As Integer)
        MyBase.New("VERWEIS", neuSpieler, neuLeben, neuBesetzungszahl, neuX, neuY, Feuerzahl, Schlacht)
        GebäudeLaden()
        BildID = -1
    End Sub

    Private Sub GebäudeLaden()
        Gebäudename = ""
        getFonds = False
        Deckung = 0
        Bestzunge = -1
        Schaden = 0
        Reichweite = -1
        Rechteck.Height = -1
        Rechteck.Width = -1
        Angriff = Angriffe.Keiner
        Leben = -1
        Feuerbereite = -1
        RotationsZenturm = New Point(0, 0)
    End Sub
    Public Overrides Sub Feuer(ByVal X As Integer, ByVal Y As Integer)
        'Do Nothing
    End Sub
    Public Overrides Sub FeuerradiusAnzeigen()
        'Do Nothing
    End Sub
    Public Overrides Sub DOSpielFrame()
        'do nothing
    End Sub
    Public Overrides Function GetLandschaftsuntergrund() As String()
        Return New String() {}
    End Function
    Public Overrides Function GetAngriffsFelder() As System.Drawing.Point()
        Return New Point() {}
    End Function
    Public Overrides Function GetMaxLeben() As Integer
        Return Objektverwalter.Spielfeld.Landschaften(Rechteck.X, Rechteck.Y, Schlacht).Gebäude.GetMaxLeben
    End Function
End Class
